home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Utilities ƒ / MPW Tools ƒ / Simula4.07 / Simula 4.07ƒ / SInterfaces / toolboxWindow.sim < prev   
Encoding:
Text File  |  1989-04-06  |  6.8 KB  |  215 lines  |  [TEXT/????]
  1. % ---------------------------------------------------------------------------
  2. %    Class TOOLBOXWindow
  3. %
  4. % the routines listed in Inside Macintosh chapter 9: Window manager
  5. % The code has been converted from the file ToolInft.p
  6. % In this module you find the interfaces to procedures concerned with Windows
  7. % in the subclass MACWindow you will find the programmers interface built on 
  8. % top of this interface.
  9. %
  10. % 890317/Boris Magnusson
  11. %
  12. % ---------------------------------------------------------------------------
  13. class TOOLBOXWindow;
  14. begin
  15.     !for Window Manager;
  16.  
  17.     external TOOLBOX procedure  x="$A90B" is
  18.         procedure TOOLBOXClipAbove(WindowPeek); integer Windowpeek;;
  19.  
  20.     external TOOLBOX procedure  x="$A90C" is
  21.         procedure TOOLBOXPaintOne(WindowPeek,clobbered); 
  22.             integer WindowPeek,clobbered;;
  23.  
  24.     external TOOLBOX procedure x="$A90D" is 
  25.         procedure TOOLBOXPaintBehind(WindowPeek,clobbered); 
  26.             integer WindowPeek,clobbered;;
  27.  
  28.     external TOOLBOX procedure x="$A90E"  is
  29.         procedure TOOLBOXSaveOld(WindowPeek);integer WindowPeek;;
  30.  
  31.     external TOOLBOX procedure x="$A90F"  is
  32.         procedure TOOLBOXDrawNew(WindowPeek,fUpdate);
  33.             integer WindowPeek; Boolean fUpdate;;
  34.  
  35.     external TOOLBOX procedure x="$A909"  is
  36.         procedure TOOLBOXCalcVis(WindowPeek); integer WindowPeek;;
  37.  
  38.     external TOOLBOX procedure x="$A90A"  is
  39.         procedure TOOLBOXCalcVisBehind(WindowPeek,clobbered);
  40.             integer WindowPeek,clobbered;;
  41.  
  42.     external TOOLBOX procedure x="$A908"  is
  43.         procedure TOOLBOXShowHide(WindowPtr,showFlag);
  44.             integer WindowPtr; Boolean showFlag;;
  45.  
  46.     external TOOLBOX procedure x="$A911"  is
  47.         Boolean procedure TOOLBOXCheckUpdate(event_what);
  48.             name event_what;
  49.             short integer event_what; ;
  50.             ! Pascal: (VAR theEvent: EventRecord) !!! Kopia av record !! ;
  51.  
  52.     external TOOLBOX procedure x="$A910" is  
  53.         procedure TOOLBOXGetWMgrPort(GrafPtr);integer GrafPtr;;
  54.  
  55.     external TOOLBOX procedure x="$A914" is  
  56.         procedure TOOLBOXDisposeWindow(WindowPtr);integer WindowPtr; ;
  57.  
  58.     external TOOLBOX procedure x="$A92D" is  
  59.         procedure TOOLBOXCloseWindow(WindowPtr);integer WindowPtr; ;
  60.  
  61.     external TOOLBOX procedure x="$A91B" is  
  62.         procedure TOOLBOXMoveWindow(WindowPtr,h, v,BringToFront);
  63.             integer WindowPtr;short integer h,v;Boolean BringToFront;;
  64.  
  65.     external TOOLBOX procedure x="$A91D" is  
  66.         procedure TOOLBOXSizeWindow(WindowPtr,width,height,fUpdate);
  67.             integer WindowPtr; short integer width,height; Boolean fUpdate; ;
  68.  
  69.     external TOOLBOX procedure x="$A92B" is  
  70.         integer procedure TOOLBOXGrowWindow(WindowPtr,startPt_h,startPt_v,
  71.             bBox_top); name bBox_top;
  72.             integer WindowPtr;
  73.             short integer startPt_h,startPt_v;
  74.             short integer bBox_top;; ! record >8 bytes ;
  75.  
  76.     external TOOLBOX procedure x="$A925" is  
  77.         procedure TOOLBOXDragWindow(WindowPtr,startPt_h,startPt_v,
  78.             bounds_top); name bounds_top;
  79.             integer WindowPtr;
  80.             short integer startPt_h,startPt_v;
  81.             short integer bounds_top;;
  82.  
  83.     external TOOLBOX procedure x="$A915" is  
  84.         procedure TOOLBOXShowWindow(WindowPtr); integer WindowPtr;;
  85.  
  86.     external TOOLBOX procedure x="$A916" is  
  87.         procedure TOOLBOXHideWindow(WindowPtr); integer WindowPtr;;
  88.  
  89.     external TOOLBOX procedure x="$A91A" is  
  90.         procedure TOOLBOXSetWTitle(WindowPtr,title);name title;
  91.             integer WindowPtr; 
  92.             text title; !Length=255; ;
  93.  
  94.     external TOOLBOX procedure x="$A919" is  
  95.         procedure TOOLBOXGetWTitle(WindowPtr,title);name title;
  96.             integer WindowPtr; 
  97.             text title; !Length=255; ;
  98.  
  99.     external TOOLBOX procedure x="$A91C" is  
  100.         procedure TOOLBOXHiliteWindow(WindowPtr, fHiLite);
  101.             integer WindowPtr;Boolean fHiLite;;
  102.  
  103.     external TOOLBOX procedure x="$A922" is  
  104.         procedure TOOLBOXBeginUpdate(WindowPtr);integer WindowPtr;;
  105.  
  106.     external TOOLBOX procedure x="$A923" is  
  107.         procedure TOOLBOXEndUpdate(WindowPtr);integer WindowPtr;;
  108.  
  109.     external TOOLBOX procedure x="$A918" is  
  110.         procedure TOOLBOXSetWRefCon(WindowPtr, data);integer WindowPtr,data;;
  111.  
  112.     external TOOLBOX procedure x="$A917" is  
  113.         integer procedure TOOLBOXGetWRefCon(WindowPtr); 
  114.             integer WindowPtr;;
  115.  
  116.     external TOOLBOX procedure x="$A92E" is  
  117.         procedure TOOLBOXSetWindowPic(WindowPtr, thePic);
  118.             integer WindowPtr;
  119.             integer thePic; ! PicHandle; ;
  120.  
  121.     external TOOLBOX procedure x="$A92F" is  
  122.         integer procedure TOOLBOXGetWindowPic(WindowPtr);
  123.             integer WindowPtr;! returns a PicHandle; ;
  124.  
  125.     external TOOLBOX procedure x="$A920" is  
  126.         procedure TOOLBOXBringToFront(WindowPtr);integer WindowPtr;;
  127.  
  128.     external TOOLBOX procedure x="$A921" is  
  129.         procedure TOOLBOXSendBehind(WindowPtr,behindWindow);
  130.             integer WindowPtr,behindWindow; ;
  131.  
  132.     external TOOLBOX procedure x="$A91F" is  
  133.         procedure TOOLBOXSelectWindow(WindowPtr);integer WindowPtr;;
  134.  
  135.     external TOOLBOX procedure x="$A91E" is  
  136.         Boolean procedure TOOLBOXTrackGoAway(WindowPtr,thePt_v,thePt_h);
  137.              integer WindowPtr;
  138.             short integer  thePt_v,thePt_h;;
  139.  
  140.     external TOOLBOX procedure x="$A904" is  
  141.         procedure TOOLBOXDrawGrowIcon(WindowPtr);integer WindowPtr;;
  142.     !new 128K ROM;
  143.  
  144.     external TOOLBOX procedure x="$A83B" is  
  145.         Boolean procedure TOOLBOXTrackBox(WindowPtr,thePt_h,thePt_v,partCode);
  146.             integer WindowPtr;
  147.             short integer thePt_h,thePt_v;
  148.             integer partCode;;
  149.  
  150.     external TOOLBOX procedure x="$A83A" is  
  151.         procedure TOOLBOXZoomWindow(WindowPtr,partCode,front);
  152.             integer WindowPtr;
  153.             integer partCode;
  154.             Boolean front;;
  155.  
  156. ! --- Belong somewhere else ??? class windowmanager ?------------- ;
  157.  
  158.     external TOOLBOX procedure x="$A912" is  
  159.         procedure TOOLBOXInitWindows;;
  160.  
  161.     external TOOLBOX procedure x="$A913" is  
  162.         integer procedure TOOLBOXNewWindow(wStorage_Ptr,
  163.             bounds_top,title,visible,theProc,behind_WindowPtr,
  164.             goAwayFlag,refCon);
  165.             name bounds_top; ! Address of record > 4 bytes ! ;
  166.             value title;
  167.             integer wStorage_Ptr;
  168.             short integer bounds_top;
  169.             text title; ! must be 255 chars long ;
  170.             Boolean visible;
  171.             short integer theProc;
  172.             integer behind_WindowPtr;
  173.             Boolean goAwayFlag;
  174.             integer refCon;  ;
  175.  
  176.     external TOOLBOX procedure x="$A9BD" is  
  177.         integer procedure TOOLBOXGetNewWindow(windowID,wStorage,behind_WindowPtr);
  178.             short integer windowID;
  179.             integer wStorage;
  180.             integer behind_WindowPtr;  ;
  181.  
  182.     external TOOLBOX procedure x="$A924" is  
  183.         integer procedure TOOLBOXFrontWindow;;
  184.  
  185.     external TOOLBOX procedure x="$A92C" is  
  186.         short integer procedure TOOLBOXFindWindow(thePoint_h,thePoint_v,theWindow);
  187.             name theWindow;
  188.             short integer thePoint_h,thePoint_v;
  189.             integer theWindow;
  190.  
  191.  
  192. %    external TOOLBOX procedure x="$A92A" is  
  193. %        ValidRect(goodRect: Rect);;
  194. %
  195. %    external TOOLBOX procedure x="$A929" is  
  196. %        ValidRgn(goodRgn: RgnHandle);;
  197. %
  198. %    external TOOLBOX procedure x="$A928" is  
  199. %        InvalRect(badRect: Rect);;
  200. %
  201. %    external TOOLBOX procedure x="$A927" is  
  202. %        InvalRgn(badRgn: RgnHandle);;
  203. %
  204. %    external TOOLBOX procedure x="$A94E" is  
  205. %        PinRect(theRect: Rect; thePt: Point): LONGINT;;
  206. %
  207. %    external TOOLBOX procedure x="$A905" is  
  208. %        DragGrayRgn(theRgn: RgnHandle; startPt: Point; boundsRect,
  209. %                     slopRect: Rect; axis: INTEGER;
  210. %                     actionProc: ProcPtr): LONGINT;;
  211.  
  212.  
  213.  
  214. END --- WINDOW CLASS --- ;
  215.